Aminet 23/Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/deutsch/hexchar.ged

Text File | 1997-11-13 | 3KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;parse arg Zeichen;options results;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;if Zeichen="32" then Zeichen=" ";'SET Insert FALSE';'QUERY Column';Spalte=Result;'QUERY Len';Laenge=Result;'QUERY Buffer';Zeile=Result;'QUERY Line';AktZeile=Result;'QUERY Lines';GesZeilen=Result;if Spalte<11 then;do;'GOTO Column=11';'UNLOCK';exit;end;if Spalte>63 then;do;'GOTO Column=63';'UNLOCK';exit;end;if Spalte=46 then;do;'GOTO Column=45';'UNLOCK';exit;end;if Spalte=47 then;do;'GOTO Column=48';'UNLOCK';exit;end;if Spalte=19 then;do;'GOTO Column=20';'UNLOCK';exit;end;if Spalte=28 then;do;'GOTO Column=29';'UNLOCK';exit;end;if Spalte=37 then;do;'GOTO Column=38';'UNLOCK';exit;end;if AktZeile=GesZeilen then;do;if Spalte<48 then;do;if substr(Zeile,Spalte,1)=" " then;do;'UNLOCK';exit;end;end;else;do;if substr(Zeile,(2*Spalte)-85+(Spalte-48)%4,1)=" " then;do;'UNLOCK';exit;end;end;end;if Spalte>10&Spalte<46 then;do;Zeichen1=Upper(Zeichen);if Zeichen1>="A"&Zeichen1<="F"|Zeichen1>="0"&Zeichen1<="9" then;do;Zeile=Overlay(Zeichen1,Zeile,Spalte);if (Spalte//2=0&Spalte<19)|(Spalte//2=1&Spalte>19&Spalte<28)|(Spalte//2=0&Spalte>28&Spalte<37)|(Spalte//2=1&Spalte>37) then;do;z1=upper(substr(Zeile,Spalte-1,1));if z1<"A" then a=c2d(z1)-48;else a=c2d(z1)-54;if Zeichen1<"A" then b=c2d(Zeichen1)-48;else b=c2d(Zeichen1)-54;c=16*a+b;if c<32|c>126|c=34|c=39 then c=183;Spalte2=(Spalte-1-(Spalte-10)%9)%2+43;Zeile=Overlay( d2c(c),Zeile,Spalte2);end;else;do;z1=upper(substr(Zeile,Spalte+1,1));if z1<"A" then a=c2d(z1)-48;else a=c2d(z1)-54;if Zeichen1<"A" then b=c2d(Zeichen1)-48;else b=c2d(Zeichen1)-54;c=a+16*b;if c<32|c>126|c=34|c=39 then c=183;Spalte2=(Spalte-1-(Spalte-10)%9)%2+43;Zeile=Overlay( d2c(c),Zeile,Spalte2);end;'GOTO Column=1';'TEXT T="'||Zeile||'"';'GOTO Column="'||Spalte+1||'"';'REFRESH Line';if Spalte=45 then;do;'GOTO Line="'||AktZeile+1||'"';'GOTO Column=11';end;if Spalte=18 then 'GOTO Column=20';if Spalte=27 then 'GOTO Column=29';if Spalte=36 then 'GOTO Column=38';'UNLOCK';exit;end;end;if Spalte>47&Spalte<64 then;do;Zeile=Overlay(Zeichen,Zeile,Spalte);Zeile=Overlay(C2X(Zeichen),Zeile,(2*Spalte)-85+(Spalte-48)%4);'GOTO Column=1';'TEXT T="'||Zeile||'"';'GOTO Column="'||Spalte+1||'"';'REFRESH Line';if Spalte=63 then;do;'GOTO Line="'||AktZeile+1||'"';'GOTO Column=48';end;'UNLOCK';exit;end;'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit